home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Biology / WayeCas Folder / cassette-stack 3 / background_2686.txt < prev    next >
Encoding:
Text File  |  1989-05-17  |  3.8 KB  |  188 lines
  1. -- background: 2686 from stack: in
  2. -- bmap block id: 69421
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: 8000
  15. -- rect: left=405 top=209 right=275 bottom=512
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 27056 / 27056
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: go to stack 1
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   get word 3 of bkgnd field 3
  27.   if it is empty then
  28.     go to stack "cassette-stack 1"
  29.   else go to card id it of stack "cassette-stack 1"
  30.  
  31.   --### you can put your own stack name here
  32.  
  33. end mouseUp
  34.  
  35.  
  36.  
  37.  
  38. -- part 2 (field)
  39. -- low flags: 00
  40. -- high flags: 0000
  41. -- rect: left=27 top=40 right=309 bottom=148
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: 
  50.  
  51.  
  52. -- part 3 (field)
  53. -- low flags: 00
  54. -- high flags: 0000
  55. -- rect: left=168 top=40 right=309 bottom=284
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: 
  64.  
  65.  
  66. -- part 4 (field)
  67. -- low flags: 00
  68. -- high flags: 0000
  69. -- rect: left=298 top=38 right=305 bottom=423
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 3
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: 
  78.  
  79.  
  80. -- part 7 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=261 top=314 right=342 bottom=297
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 1013 / 1013
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Next
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   go to next card
  95. end mouseUp
  96.  
  97.  
  98. -- part 8 (button)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=214 top=314 right=342 bottom=251
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 1014 / 1014
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Prev
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   go to previous card
  113. end mouseUp
  114.  
  115.  
  116. -- part 9 (button)
  117. -- low flags: 00
  118. -- high flags: 8000
  119. -- rect: left=404 top=109 right=166 bottom=508
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 7012 / 7012
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: go to stack 2
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   GLOBAL IT
  131.   GET THE NUMBER OF CARD
  132.   put it into numberOfCards
  133.   global count
  134.   add 1 to count
  135.   get word one of field 1
  136.   if it is empty then
  137.     go to stack "cassette-stack 2"
  138.     exit mouseUp
  139.   else go to stack "cassette-stack 2" ---put count into bkgnd field "counter"
  140.   CHOOSE BUTTON TOOL
  141.   SET HILITE OF CARD BUTTON numberOfCards TO false
  142.   CHOOSE BROWSE TOOL
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 10 (button)
  148. -- low flags: 00
  149. -- high flags: 8000
  150. -- rect: left=405 top=23 right=70 bottom=509
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 2507 / 2507
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: HELP
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   get name of card
  162.   put it into card
  163.   go to stack "cassette-stack 2"
  164.   put item 1 of card into field 2 of card "help"
  165.   go to card "help"
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 11 (button)
  171. -- low flags: 00
  172. -- high flags: 8003
  173. -- rect: left=311 top=315 right=337 bottom=479
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: delete the first line
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   delete line 1 of field 2
  185.   delete line 1 of field 3
  186. end mouseUp
  187.  
  188.